home *** CD-ROM | disk | FTP | other *** search
/ .net (Turkey) 1998 March / .net Internet Dergisi - CD 5.iso / pc / CON_BM / 00283_Script_283 < prev    next >
Text File  |  1997-11-07  |  670b  |  47 lines
  1. --Sound Handlers 
  2.  
  3. On BClickOn
  4.   PuppetSound "BClickOn",2
  5.   updatestage
  6. end BigClickOn
  7.  
  8. On SClickOn
  9.   PuppetSound "SClickOn",2
  10.   updatestage
  11. end BigClickOn
  12.  
  13. On FadeSound
  14.   if soundbusy(1) then
  15.     sound fadeout 1, 120
  16.   end if
  17.   if soundbusy(2) then
  18.     sound fadeout 2, 120
  19.   end if
  20.   
  21.   updatestage
  22. end FadeSound
  23.  
  24.  
  25.  
  26.  
  27. on ResetSound
  28.   if soundbusy(1) then 
  29.     sound stop 1
  30.     sound close 1
  31.   end if
  32.   
  33.   if soundbusy(2) then 
  34.     sound stop 1
  35.     sound close 2
  36.   end if
  37.   
  38. end ResetSound  
  39.  
  40.  
  41.  
  42. on StreamSound Param1
  43.   global gPathSep
  44.   sound playFile 2, the pathname & "media" & gpathsep & param1 & ".aif"
  45. end StreamSound
  46.  
  47.